COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(*PAS10 OPTIONS*) (*$D+,R32,S1600*)			(*X10S1*)
C00004 ENDMK
C⊗;
(*PAS10 OPTIONS*) (*$D+,R32,S1600*)			(*X10S1*)

program eblow;

type
OPNDTYPE = (ILLARITH, ILLCOMP,
	    TYPA, TYPM, TYPN, TYPB, TYPC, TYPS, TYPQ,
	    TYPH, TYPI, TYPD, TYPX, TYPR, TYPP, TYPJ);

var
    FIRSTTYPE, LASTTYPE :  OPNDTYPE;

    MOV_X_Y :  array [OPNDTYPE, OPNDTYPE] of OPNDTYPE;
    ARITH_RESULT_TYPE :  array [OPNDTYPE, OPNDTYPE] of OPNDTYPE;
    COMPARE_COERCE_TYPE :  array [OPNDTYPE, OPNDTYPE] of OPNDTYPE;
    T, T1, T2 :  OPNDTYPE;


    procedure INIT2;
    begin
    for T1 := FIRSTTYPE to LASTTYPE do
	for T2 := FIRSTTYPE to LASTTYPE do
	    begin
	    MOV_X_Y[T1, T2] := ILLARITH;
	    ARITH_RESULT_TYPE[T1, T2] := ILLARITH;
	    COMPARE_COERCE_TYPE[T1, T2] := ILLCOMP;
	    end (*for*);

    end (*INIT2*);

begin
firsttype := ILLARITH; lasttype := TYPJ;
init2;
end (*eblow*).